
ii=1:50
arr=numeric(n)

for (i in ii)
{
	arr[i]=choose(n,i)  / choose((n+m),i)
}





## problem 5

# Realization where n=m=50
#
n=50
m=50

inte=function(x,n=50,m=50) { ((n - x + 1) / ((n - x + 1)+m)) }
ar1=numeric(n)
ar1[1]=inte(1)

for(i in seq(2,n))
{
	ar1[i]=inte(i)*ar1[i-1]
}

# expected value
exvalue = sum( 1:50 * ar1 )
# 1.904
